home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 5 / Gold Medal Software - Volume 5 (Gold Medal) (1995).iso / windows / games / bgf2vol2.arj / BGF2.MST < prev    next >
Text File  |  1994-09-09  |  3KB  |  94 lines
  1.  
  2. '$INCLUDE 'setupapi.inc'
  3. '$INCLUDE 'msdetect.inc'
  4.  
  5. ''Dialog ID's
  6. CONST _GETPATH    = 101
  7. CONST _BADPATH    = 102
  8. CONST _BILLBOARD = 105
  9. CONST _COMPLETE     = 107
  10. ''Bitmap ID
  11. CONST LOGO     = 104
  12.  
  13. GLOBAL DEST$        ''Default destination directory.
  14. GLOBAL MAKEGROUP$    
  15.     
  16. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  17.  
  18.  
  19. INIT:
  20.     CUIDLL$ = "mscuistf.dll"
  21.     BADPROC$ = "BadPathDlgProc"
  22.     BILLBOARDPROC$ = "BillBoardDlgProc"
  23.     MAKEGROUP$ = "FALSE"
  24.     
  25.     SetTitle "WinGames.Inc - Board Games For II"
  26.  
  27.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  28.     IF szInf$ = "" THEN
  29.         szInf$ = GetSymbolValue("STF_CWDDIR") + "SETUP.INF"
  30.     ENDIF
  31.     ReadInfFile szInf$
  32.  
  33.     DEST$ = "C:\WINGAMES.INC\BGFII"
  34.  
  35. WELCOME:
  36.     SetSymbolValue "EditTextIn", DEST$
  37.     sz$ = UIStartDlg( CUIDLL$, _GETPATH, "GetPathDlgProc", _BADPATH, BADPROC$)
  38.     DEST$ = GetSymbolValue("EditTextOut")
  39.     IF sz$ = "OK" THEN
  40.         IF IsDirWritable(DEST$) = 0 THEN
  41.             GOSUB BADPATH
  42.             GOTO WELCOME
  43.         ELSE
  44.             UIPop 1
  45.             GOTO INSTALL        
  46.         END IF
  47.     ELSE
  48.         UIPop 1
  49.         GOTO QUIT
  50.     ENDIF
  51.  
  52. INSTALL:               
  53.     
  54.     szBuf$ = UIStartDlg( CUIDLL$, _BILLBOARD, "BillBoardDlgProc", _BADPATH, BADPROC$)
  55.     ClearCopyList
  56.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  57.     AddSectionFilesToCopyList "APP_FILES", SrcDir$, DEST$
  58.     CreateDir DEST$, cmoNone
  59.     OldCursor% = ShowWaitCursor()
  60.     SetCopyGaugePosition 500, 500
  61.     CopyFilesInCopyList
  62.     RestoreCursor OldCursor%
  63.     UIPop 1
  64.     szBye$ = UIStartDlg( CUIDLL$, _COMPLETE, "CompleteDlgProc", _BADPATH, BADPROC$)
  65.     CreateProgmanGroup "WinGames.Inc", "", cmoNone
  66.     ShowProgmanGroup  "WinGames.Inc", 1, cmoNone
  67.        CreateProgmanItem "WinGames.Inc", "Board Games For II", MakePath(DEST$,"bgf2.exe"), MakePath(DEST$,"bgf2.exe")+",0,10,10,"+DEST$, cmoOverwrite
  68.        CreateProgmanItem "WinGames.Inc", "Instructions", "WinHelp.Exe "+MakePath(DEST$,"bgf2.hlp"), MakePath(DEST$,"bgf2.exe")+",1,50,50,"+DEST$, cmoOverwrite
  69.     
  70. QUIT:
  71.     END
  72.  
  73.  
  74. BADPATH:
  75.     sz$ = UIStartDlg(CUIDLL$, _BADPATH, "BGF2_BadPathDlgProc", 0, "")
  76.     IF sz$ = "REACTIVATE" THEN
  77.         GOTO BADPATH
  78.     END IF
  79.     UIPop 1
  80.     RETURN
  81.  
  82. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  83.     IF szDir$ = "" THEN
  84.         MakePath = szFile$
  85.     ELSEIF szFile$ = "" THEN
  86.         MakePath = szDir$
  87.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  88.         MakePath = szDir$ + szFile$
  89.     ELSE
  90.         MakePath = szDir$ + "\" + szFile$
  91.     ENDIF
  92. END FUNCTION
  93.  
  94.